home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson1 / Lesson1.dcr / 00001_startup routines.ls next >
Encoding:
Text File  |  2001-11-20  |  811 b   |  26 lines
  1. global QuickBooksPro, fastTransparency, backButtonTarget, foreButtonTarget, jobsOnList, firstTimeNewCustomer
  2.  
  3. on startMovie
  4.   set the exitLock to 1
  5.   set the floatPrecision to 2
  6.   backButtonTarget = EMPTY
  7.   foreButtonTarget = EMPTY
  8.   jobsOnList = "FALSE"
  9.   firstTimeNewCustomer = "TRUE"
  10.   if (QuickBooksPro <> "TRUE") and (QuickBooksPro <> "FALSE") then
  11.     QuickBooksPro = "FALSE"
  12.   end if
  13.   if (fastTransparency <> "TRUE") and (fastTransparency <> "FALSE") then
  14.     fastTransparency = "FALSE"
  15.   end if
  16.   if QuickBooksPro = "TRUE" then
  17.     member("Product Name", "QBMenus").text = "Our Sample Company - QuickBooks Pro"
  18.   else
  19.     member("Product Name", "QBMenus").text = "Our Sample Company - QuickBooks"
  20.   end if
  21.   getPersistentGlobals()
  22.   getCustomerListData()
  23.   getItemListData()
  24.   getInvoiceListData()
  25. end
  26.